Power Tools for Macintosh/Power Tools for Macintosh (SoftBit)(1992).iso/Applications/Alpha 4.01/LaTeX/Wright Macros/BibTeX-Macros

Text File | 1991-08-30 | 5KB | 352 lines

;=============BibTeX macros =====================================
; This file implements all of the entries and fields required by
; the standard BibTeX styles, as specified in the document
; "BibTeXing" by Oren Patashnik, my copy dated 8 February 1988.
;                                David A. Wright
;                                ([e-mail])
; Please feel free to modify this file to suit your own purposes,
; but do please share any improvements with me!
; DISCLAIMER: I make no guarantee about the correctness of these
; macros. They work for me under Alpha 4.0b2.
;===============================================================

;===============================================================
; Some misc. macros.

(define prevField
    3 backwardChar
    set forward 0
    search "="
    2 forwardChar
)
(define nextField
    set forward 1
    search "="
    2 forwardChar
)
(define    bibQuotes
    putascii 34
    putascii 34
    backwardChar
)

;==============================================================
; These macros capture some common behaviour
(define startField
    beginningOfLine
    doTab
)
(define endField
    putascii 34
    putascii 34
    type ","
    carriageReturn
)

;==============================================================
; The following macros define the fields used to build up the
; entries.

(define address
    startField
    type "address = "
    endField
)
(define annote
    startField
    type "annote = "
    endField
)
(define author
    startField
    type "author = "
    endField
)
(define booktitle
    startField
    type "booktitle = "
    endField
)
(define chapter
    startField
    type "chapter = "
    endField
)
(define crossref
    startField
    type "crossref = "
    endField
)
(define edition
    startField
    type "edition = "
    endField
)
(define editor
    startField
    type "editor = "
    endField
)
(define howpublished
    startField
    type "howpublished = "
    endField
)
(define institution
    startField
    type "institution = "
    endField
)
(define journal
    startField
    type "journal = "
    endField
)
(define key
    startField
    type "key = "
    endField
)
(define month
    startField
    type "month = "
    endField
)
(define note
    startField
    type "note = "
    endField
)
(define number
    startField
    type "number = ,"
    carriageReturn
)
(define organization
    startField
    type "organization = "
    endField
)
(define pages
    startField
    type "pages = "
    putascii 34
    type "--"
    putascii 34
    type ","
    carriageReturn
)
(define publisher
    startField
    type "publisher = "
    endField
)
(define school
    startField
    type "school = "
    endField
)
(define series
    startField
    type "series = "
    endField
)
(define title
    startField
    type "title = "
    endField
)
(define typeOf
    startField
    type "type = "
    endField
)
(define volume
    startField
    type "volume = ,"
    carriageReturn
)
(define year
    startField
    type "year = 19,"
    carriageReturn
)
;=============================================================
; These macros define the BibTeX entries.
(define article
    type "@article(,"
    carriageReturn
    author
    title
    journal
    year
    type ")"
    carriageReturn
    6 previousLine
    endOfLine
    backwardChar
)
(define book
    type "@book(,"
    carriageReturn
    author
    editor
    title
    publisher
    year
    type ")"
    carriageReturn
    7 previousLine
    endOfLine
    backwardChar
)
(define booklet
    type "@booklet(,"
    carriageReturn
    title
    author
    howpublished
    type ")"
    carriageReturn
    5 previousLine
    endOfLine
    backwardChar
)
(define conference
    inProceedings
)
(define inBook
    type "@inBook(,"
    carriageReturn
    author
    editor
    title
    chapter
    pages
    publisher
    year
    type ")"
    carriageReturn
    9 previousLine
    endOfLine
    backwardChar
)
(define inCollection
    type "@inCollection(,"
    carriageReturn
    author
    title
    booktitle
    publisher
    year
    type ")"
    carriageReturn
    7 previousLine
    endOfLine
    backwardChar
)
(define inProceedings
    type "@inProceedings(,"
    carriageReturn
    author
    title
    booktitle
    year
    type ")"
    carriageReturn
    6 previousLine
    endOfLine
    backwardChar
)
(define manual
    type "@manual(,"
    carriageReturn
    title
    author
    organization
    year
    type ")"
    carriageReturn
    6 previousLine
    endOfLine
    backwardChar
)
(define mastersThesis
    type "@mastersThesis(,"
    carriageReturn
    author
    title
    school
    year
    type ")"
    carriageReturn
    6 previousLine
    endOfLine
    backwardChar
)
(define phdThesis
    type "@phdThesis(,"
    carriageReturn
    author
    title
    school
    year
    type ")"
    carriageReturn
    6 previousLine
    endOfLine
    backwardChar
)
(define misc
    type "@misc(,"
    carriageReturn
    type ")"
    carriageReturn
    2 previousLine
    endOfLine
    backwardChar
)
(define proceedings
    type "@proceedings(,"
    carriageReturn
    title
    year
    type ")"
    carriageReturn
    4 previousLine
    endOfLine
    backwardChar
)
(define techReport
    type "@techReport(,"
    carriageReturn
    author
    title
    institution
    year
    number
    type ")"
    carriageReturn
    7 previousLine
    endOfLine
    backwardChar
)
(define unpublished
    type "@unpublished(,"
    carriageReturn
    author
    title
    note
    type ")"
    carriageReturn
    5 previousLine
    endOfLine
    backwardChar
)

;=========== Useful key bindings ============================

(bind    '\4e'  prevField)
(bind    '\45'  nextField)
(bind    '\27' <s> bibQuotes)